home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 49 / 049.d81 / color advance (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  767b  |  23 lines
  1. 0 ifa=1then1000
  2. 100 rem screen color - kermit woodall
  3. 101 rem advances the screen color, but
  4. 102 rem will not make it the same as
  5. 103 rem the character color.
  6. 104 :
  7. 110 poke53281,(peek(53281)+1and15)+abs((peek(53281)+1and15)=(peek(646)and15))
  8. 120 :
  9. 130 :
  10. 200 rem character color - kermit woodall
  11. 201 rem advances the character color
  12. 202 rem but will not make it the same
  13. 203 rem as the screen color.
  14. 204 :
  15. 210 poke646,(peek(646)+1and15)+abs((peek(53281)and15)=(peek(646)+1and15))
  16. 250 print"[147]list line 110 to see how to easily"
  17. 251 print"advance the background color..."
  18. 255 print"list line 210 to see how to easily"
  19. 256 print"advance the character color..."
  20. 300 print"enter 'goto tips' to return":print"to tips and tricks menu":a=1:end
  21. 1000 poke646,peek(53281):print"[147]load"chr$(34)"tips and tricks"chr$(34)",8"
  22. 1010 print"run":poke631,13:poke632,13:poke198,2:end
  23.